/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / ilisp / bridge.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 39 3a 30 35 3a 31 | 32 20 31 39 39 35 0a 3b | 19:05:1|2 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 69 6c |e/editor|/lisp/il|
|00000090| 69 73 70 2f 62 72 69 64 | 67 65 2e 65 6c 0a 3b 3b |isp/brid|ge.el.;;|
|000000a0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000b0| 31 39 2e 31 33 20 58 45 | 6d 61 63 73 20 4c 75 63 |19.13 XE|macs Luc|
|000000c0| 69 64 2e 0a 3b 3b 3b 20 | 62 79 74 65 63 6f 6d 70 |id..;;; |bytecomp|
|000000d0| 20 76 65 72 73 69 6f 6e | 20 32 2e 32 35 3b 20 31 | version| 2.25; 1|
|000000e0| 2d 53 65 70 2d 39 34 2e | 0a 3b 3b 3b 20 6f 70 74 |-Sep-94.|.;;; opt|
|000000f0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|00000100| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|00000110| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|00000120| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000130| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000140| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000150| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000160| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000170| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000180| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000190| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|000001a0| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|000001b0| 69 6f 6e 20 22 31 39 22 | 29 29 29 0a 20 20 20 20 |ion "19"|))).    |
|000001c0| 28 65 72 72 6f 72 20 22 | 54 68 69 73 20 66 69 6c |(error "|This fil|
|000001d0| 65 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |e was co|mpiled f|
|000001e0| 6f 72 20 45 6d 61 63 73 | 20 31 39 2e 22 29 29 0a |or Emacs| 19.")).|
|000001f0| 0a 28 64 65 66 76 61 72 | 20 62 72 69 64 67 65 2d |.(defvar| bridge-|
|00000200| 68 6f 6f 6b 20 6e 69 6c | 20 22 5c 0a 48 6f 6f 6b |hook nil| "\.Hook|
|00000210| 20 63 61 6c 6c 65 64 20 | 77 68 65 6e 20 61 20 62 | called |when a b|
|00000220| 72 69 64 67 65 20 69 73 | 20 69 6e 73 74 61 6c 6c |ridge is| install|
|00000230| 65 64 20 62 79 20 69 6e | 73 74 61 6c 6c 2d 68 6f |ed by in|stall-ho|
|00000240| 6f 6b 2e 22 29 0a 28 64 | 65 66 76 61 72 20 62 72 |ok.").(d|efvar br|
|00000250| 69 64 67 65 2d 73 74 61 | 72 74 2d 72 65 67 65 78 |idge-sta|rt-regex|
|00000260| 70 20 22 1b 22 20 22 5c | 0a 2a 52 65 67 75 6c 61 |p "." "\|.*Regula|
|00000270| 72 20 65 78 70 72 65 73 | 73 69 6f 6e 20 74 6f 20 |r expres|sion to |
|00000280| 6d 61 74 63 68 20 74 68 | 65 20 73 74 61 72 74 20 |match th|e start |
|00000290| 6f 66 20 61 20 70 72 6f | 63 65 73 73 20 62 72 69 |of a pro|cess bri|
|000002a0| 64 67 65 20 69 6e 0a 70 | 72 6f 63 65 73 73 20 6f |dge in.p|rocess o|
|000002b0| 75 74 70 75 74 2e 20 20 | 49 74 20 73 68 6f 75 6c |utput.  |It shoul|
|000002c0| 64 20 62 65 20 66 6f 6c | 6c 6f 77 65 64 20 62 79 |d be fol|lowed by|
|000002d0| 20 61 20 62 75 66 66 65 | 72 20 6e 61 6d 65 2c 20 | a buffe|r name, |
|000002e0| 74 68 65 20 64 61 74 61 | 20 74 6f 0a 62 65 20 73 |the data| to.be s|
|000002f0| 65 6e 74 20 61 6e 64 20 | 61 20 62 72 69 64 67 65 |ent and |a bridge|
|00000300| 2d 65 6e 64 2d 72 65 67 | 65 78 70 2e 22 29 0a 28 |-end-reg|exp.").(|
|00000310| 64 65 66 76 61 72 20 62 | 72 69 64 67 65 2d 65 6e |defvar b|ridge-en|
|00000320| 64 2d 72 65 67 65 78 70 | 20 22 1d 22 20 22 5c 0a |d-regexp| "." "\.|
|00000330| 2a 52 65 67 75 6c 61 72 | 20 65 78 70 72 65 73 73 |*Regular| express|
|00000340| 69 6f 6e 20 74 6f 20 6d | 61 74 63 68 20 74 68 65 |ion to m|atch the|
|00000350| 20 65 6e 64 20 6f 66 20 | 61 20 70 72 6f 63 65 73 | end of |a proces|
|00000360| 73 20 62 72 69 64 67 65 | 20 69 6e 20 70 72 6f 63 |s bridge| in proc|
|00000370| 65 73 73 0a 6f 75 74 70 | 75 74 2e 22 29 0a 28 64 |ess.outp|ut.").(d|
|00000380| 65 66 76 61 72 20 62 72 | 69 64 67 65 2d 70 72 6f |efvar br|idge-pro|
|00000390| 6d 70 74 2d 72 65 67 65 | 78 70 20 6e 69 6c 20 22 |mpt-rege|xp nil "|
|000003a0| 5c 0a 2a 52 65 67 75 6c | 61 72 20 65 78 70 72 65 |\.*Regul|ar expre|
|000003b0| 73 73 69 6f 6e 20 66 6f | 72 20 64 65 74 65 63 74 |ssion fo|r detect|
|000003c0| 69 6e 67 20 61 20 70 72 | 6f 6d 70 74 2e 20 20 49 |ing a pr|ompt.  I|
|000003d0| 66 20 74 68 65 72 65 20 | 69 73 20 61 0a 63 6f 6d |f there |is a.com|
|000003e0| 69 6e 74 2d 70 72 6f 6d | 70 74 2d 72 65 67 65 78 |int-prom|pt-regex|
|000003f0| 70 2c 20 69 74 20 77 69 | 6c 6c 20 62 65 20 69 6e |p, it wi|ll be in|
|00000400| 69 74 69 61 6c 69 7a 65 | 64 20 74 6f 20 74 68 61 |itialize|d to tha|
|00000410| 74 2e 20 20 41 20 70 72 | 6f 6d 70 74 20 62 65 66 |t.  A pr|ompt bef|
|00000420| 6f 72 65 0a 61 20 62 72 | 69 64 67 65 2d 65 6e 64 |ore.a br|idge-end|
|00000430| 2d 72 65 67 65 78 70 20 | 77 69 6c 6c 20 73 74 6f |-regexp |will sto|
|00000440| 70 20 74 68 65 20 70 72 | 6f 63 65 73 73 20 62 72 |p the pr|ocess br|
|00000450| 69 64 67 65 2e 22 29 0a | 28 64 65 66 76 61 72 20 |idge.").|(defvar |
|00000460| 62 72 69 64 67 65 2d 68 | 61 6e 64 6c 65 72 73 20 |bridge-h|andlers |
|00000470| 6e 69 6c 20 22 5c 0a 41 | 6c 69 73 74 20 6f 66 20 |nil "\.A|list of |
|00000480| 28 72 65 67 65 78 70 20 | 2e 20 68 61 6e 64 6c 65 |(regexp |. handle|
|00000490| 72 29 20 66 6f 72 20 68 | 61 6e 64 6c 69 6e 67 20 |r) for h|andling |
|000004a0| 70 72 6f 63 65 73 73 20 | 6f 75 74 70 75 74 20 64 |process |output d|
|000004b0| 65 6c 69 6d 69 74 65 64 | 0a 62 79 20 62 72 69 64 |elimited|.by brid|
|000004c0| 67 65 2d 73 74 61 72 74 | 2d 72 65 67 65 78 70 20 |ge-start|-regexp |
|000004d0| 61 6e 64 20 62 72 69 64 | 67 65 2d 65 6e 64 2d 72 |and brid|ge-end-r|
|000004e0| 65 67 65 78 70 2e 20 20 | 54 68 65 20 66 69 72 73 |egexp.  |The firs|
|000004f0| 74 20 65 6e 74 72 79 20 | 6f 6e 20 74 68 65 0a 6c |t entry |on the.l|
|00000500| 69 73 74 20 77 68 6f 73 | 65 20 72 65 67 65 78 70 |ist whos|e regexp|
|00000510| 20 6d 61 74 63 68 65 73 | 20 74 68 65 20 6f 75 74 | matches| the out|
|00000520| 70 75 74 20 77 69 6c 6c | 20 62 65 20 63 61 6c 6c |put will| be call|
|00000530| 65 64 20 6f 6e 20 74 68 | 65 20 70 72 6f 63 65 73 |ed on th|e proces|
|00000540| 73 20 61 6e 64 0a 74 68 | 65 20 64 65 6c 69 6d 69 |s and.th|e delimi|
|00000550| 74 65 64 20 6f 75 74 70 | 75 74 2e 22 29 0a 28 64 |ted outp|ut.").(d|
|00000560| 65 66 76 61 72 20 62 72 | 69 64 67 65 2d 73 6f 75 |efvar br|idge-sou|
|00000570| 72 63 65 2d 69 6e 73 65 | 72 74 20 74 20 22 5c 0a |rce-inse|rt t "\.|
|00000580| 2a 54 20 74 6f 20 69 6e | 73 65 72 74 20 62 72 69 |*T to in|sert bri|
|00000590| 64 67 65 20 69 6e 70 75 | 74 20 69 6e 20 74 68 65 |dge inpu|t in the|
|000005a0| 20 73 6f 75 72 63 65 20 | 62 75 66 66 65 72 20 6d | source |buffer m|
|000005b0| 69 6e 75 73 20 64 65 6c | 69 6d 69 74 65 72 73 2e |inus del|imiters.|
|000005c0| 22 29 0a 28 64 65 66 76 | 61 72 20 62 72 69 64 67 |").(defv|ar bridg|
|000005d0| 65 2d 64 65 73 74 69 6e | 61 74 69 6f 6e 2d 69 6e |e-destin|ation-in|
|000005e0| 73 65 72 74 20 74 20 22 | 5c 0a 2a 54 20 66 6f 72 |sert t "|\.*T for|
|000005f0| 20 62 72 69 64 67 65 2d | 73 65 6e 64 2d 68 61 6e | bridge-|send-han|
|00000600| 64 6c 65 72 20 74 6f 20 | 69 6e 73 65 72 74 20 62 |dler to |insert b|
|00000610| 72 69 64 67 65 20 69 6e | 70 75 74 20 69 6e 74 6f |ridge in|put into|
|00000620| 20 74 68 65 0a 64 65 73 | 74 69 6e 61 74 69 6f 6e | the.des|tination|
|00000630| 20 62 75 66 66 65 72 20 | 6d 69 6e 75 73 20 64 65 | buffer |minus de|
|00000640| 6c 69 6d 69 74 65 72 73 | 2e 22 29 0a 28 64 65 66 |limiters|.").(def|
|00000650| 76 61 72 20 62 72 69 64 | 67 65 2d 63 68 75 6e 6b |var brid|ge-chunk|
|00000660| 2d 73 69 7a 65 20 35 31 | 32 20 22 5c 0a 2a 4c 6f |-size 51|2 "\.*Lo|
|00000670| 6e 67 20 69 6e 70 75 74 | 73 20 73 65 6e 64 20 74 |ng input|s send t|
|00000680| 6f 20 63 6f 6d 69 6e 74 | 20 70 72 6f 63 65 73 73 |o comint| process|
|00000690| 65 73 20 61 72 65 20 62 | 72 6f 6b 65 6e 20 75 70 |es are b|roken up|
|000006a0| 20 69 6e 74 6f 20 63 68 | 75 6e 6b 73 20 6f 66 0a | into ch|unks of.|
|000006b0| 74 68 69 73 20 73 69 7a | 65 2e 20 20 49 66 20 79 |this siz|e.  If y|
|000006c0| 6f 75 72 20 70 72 6f 63 | 65 73 73 20 69 73 20 63 |our proc|ess is c|
|000006d0| 68 6f 6b 69 6e 67 20 6f | 6e 20 62 69 67 20 69 6e |hoking o|n big in|
|000006e0| 70 75 74 73 2c 20 74 72 | 79 20 6c 6f 77 65 72 69 |puts, tr|y loweri|
|000006f0| 6e 67 20 74 68 65 0a 76 | 61 6c 75 65 2e 22 29 0a |ng the.v|alue.").|
|00000700| 28 64 65 66 76 61 72 20 | 62 72 69 64 67 65 2d 6f |(defvar |bridge-o|
|00000710| 6c 64 2d 66 69 6c 74 65 | 72 20 6e 69 6c 20 22 5c |ld-filte|r nil "\|
|00000720| 0a 4f 6c 64 20 66 69 6c | 74 65 72 20 66 6f 72 20 |.Old fil|ter for |
|00000730| 61 20 62 72 69 64 67 65 | 64 20 70 72 6f 63 65 73 |a bridge|d proces|
|00000740| 73 20 62 75 66 66 65 72 | 2e 22 29 0a 28 64 65 66 |s buffer|.").(def|
|00000750| 76 61 72 20 62 72 69 64 | 67 65 2d 73 74 72 69 6e |var brid|ge-strin|
|00000760| 67 20 6e 69 6c 20 22 5c | 0a 54 68 65 20 63 75 72 |g nil "\|.The cur|
|00000770| 72 65 6e 74 20 6f 75 74 | 70 75 74 20 69 6e 20 74 |rent out|put in t|
|00000780| 68 65 20 70 72 6f 63 65 | 73 73 20 62 72 69 64 67 |he proce|ss bridg|
|00000790| 65 2e 22 29 0a 28 64 65 | 66 76 61 72 20 62 72 69 |e.").(de|fvar bri|
|000007a0| 64 67 65 2d 69 6e 2d 70 | 72 6f 67 72 65 73 73 20 |dge-in-p|rogress |
|000007b0| 6e 69 6c 20 22 5c 0a 54 | 68 65 20 63 75 72 72 65 |nil "\.T|he curre|
|000007c0| 6e 74 20 68 61 6e 64 6c | 65 72 20 66 75 6e 63 74 |nt handl|er funct|
|000007d0| 69 6f 6e 2c 20 69 66 20 | 61 6e 79 2c 20 74 68 61 |ion, if |any, tha|
|000007e0| 74 20 62 72 69 64 67 65 | 20 70 61 73 73 65 73 20 |t bridge| passes |
|000007f0| 73 74 72 69 6e 67 73 20 | 6f 6e 20 74 6f 2c 0a 6f |strings |on to,.o|
|00000800| 72 20 6e 69 6c 20 69 66 | 20 6e 6f 6e 65 2e 22 29 |r nil if| none.")|
|00000810| 0a 28 64 65 66 76 61 72 | 20 62 72 69 64 67 65 2d |.(defvar| bridge-|
|00000820| 73 65 6e 64 2d 74 6f 2d | 62 75 66 66 65 72 20 6e |send-to-|buffer n|
|00000830| 69 6c 20 22 5c 0a 54 68 | 65 20 62 75 66 66 65 72 |il "\.Th|e buffer|
|00000840| 20 74 68 61 74 20 74 68 | 65 20 64 65 66 61 75 6c | that th|e defaul|
|00000850| 74 20 62 72 69 64 67 65 | 2d 68 61 6e 64 6c 65 72 |t bridge|-handler|
|00000860| 20 28 62 72 69 64 67 65 | 2d 73 65 6e 64 2d 68 61 | (bridge|-send-ha|
|00000870| 6e 64 6c 65 72 29 20 69 | 73 0a 63 75 72 72 65 6e |ndler) i|s.curren|
|00000880| 74 6c 79 20 73 65 6e 64 | 69 6e 67 20 74 6f 2c 20 |tly send|ing to, |
|00000890| 6f 72 20 6e 69 6c 20 69 | 66 20 69 74 20 68 61 73 |or nil i|f it has|
|000008a0| 6e 27 74 20 73 74 61 72 | 74 65 64 20 79 65 74 2e |n't star|ted yet.|
|000008b0| 20 20 59 6f 75 72 20 68 | 61 6e 64 6c 65 72 0a 66 |  Your h|andler.f|
|000008c0| 75 6e 63 74 69 6f 6e 20 | 63 61 6e 20 75 73 65 20 |unction |can use |
|000008d0| 74 68 69 73 20 76 61 72 | 69 61 62 6c 65 20 61 6c |this var|iable al|
|000008e0| 73 6f 2e 22 29 0a 28 64 | 65 66 76 61 72 20 62 72 |so.").(d|efvar br|
|000008f0| 69 64 67 65 2d 6c 61 73 | 74 2d 66 61 69 6c 75 72 |idge-las|t-failur|
|00000900| 65 20 6e 69 6c 20 22 5c | 0a 4c 61 73 74 20 74 68 |e nil "\|.Last th|
|00000910| 69 6e 67 20 74 68 61 74 | 20 62 72 6f 6b 65 20 74 |ing that| broke t|
|00000920| 68 65 20 62 72 69 64 67 | 65 20 68 61 6e 64 6c 65 |he bridg|e handle|
|00000930| 72 2e 20 20 46 69 72 73 | 74 20 69 74 65 6d 20 69 |r.  Firs|t item i|
|00000940| 73 20 66 75 6e 63 74 69 | 6f 6e 20 63 61 6c 6c 0a |s functi|on call.|
|00000950| 28 65 76 61 6c 27 61 62 | 6c 65 29 3b 20 6c 61 73 |(eval'ab|le); las|
|00000960| 74 20 69 74 65 6d 20 69 | 73 20 65 72 72 6f 72 20 |t item i|s error |
|00000970| 63 6f 6e 64 69 74 69 6f | 6e 20 77 68 69 63 68 20 |conditio|n which |
|00000980| 72 65 73 75 6c 74 65 64 | 2e 20 20 54 68 69 73 20 |resulted|.  This |
|00000990| 69 73 20 70 72 6f 76 69 | 64 65 64 0a 74 6f 20 68 |is provi|ded.to h|
|000009a0| 65 6c 70 20 68 61 6e 64 | 6c 65 72 2d 77 72 69 74 |elp hand|ler-writ|
|000009b0| 65 72 73 20 69 6e 20 74 | 68 65 69 72 20 64 65 62 |ers in t|heir deb|
|000009c0| 75 67 67 69 6e 67 2e 22 | 29 0a 28 66 73 65 74 20 |ugging."|).(fset |
|000009d0| 27 62 72 69 64 67 65 2d | 69 6e 73 65 72 74 20 23 |'bridge-|insert #|
|000009e0| 5b 28 6f 75 74 70 75 74 | 29 20 22 08 ad d9 70 19 |[(output|) "...p.|
|000009f0| c2 09 21 1b c4 0b 21 1d | c6 20 1e 07 c8 1e 09 ca |..!...!.|. ......|
|00000a00| 0e 07 21 09 3d ab 87 60 | 0d 55 16 09 aa 85 cb 09 |..!.=..`|.U......|
|00000a10| 21 16 07 8a 0d 62 88 08 | 63 88 0d 60 c8 93 88 29 |!....b..|c..`...)|
|00000a20| 0e 07 ad a2 0e 09 ab 83 | 0d 62 88 cc 60 0e 07 5c |........|.b..`..\|
|00000a30| 22 3f ad 93 c6 20 1e 0d | 8a ce 0e 07 21 88 cf d0 |"?... ..|....!...|
|00000a40| 21 88 ce 0e 0d 21 2a 2d | 87 22 20 5b 6f 75 74 70 |!....!*-|." [outp|
|00000a50| 75 74 20 62 75 66 66 65 | 72 20 67 65 74 2d 62 75 |ut buffe|r get-bu|
|00000a60| 66 66 65 72 2d 70 72 6f | 63 65 73 73 20 70 72 6f |ffer-pro|cess pro|
|00000a70| 63 65 73 73 20 70 72 6f | 63 65 73 73 2d 6d 61 72 |cess pro|cess-mar|
|00000a80| 6b 20 6d 61 72 6b 20 73 | 65 6c 65 63 74 65 64 2d |k mark s|elected-|
|00000a90| 77 69 6e 64 6f 77 20 77 | 69 6e 64 6f 77 20 6e 69 |window w|indow ni|
|00000aa0| 6c 20 61 74 2d 65 6e 64 | 20 77 69 6e 64 6f 77 2d |l at-end| window-|
|00000ab0| 62 75 66 66 65 72 20 67 | 65 74 2d 62 75 66 66 65 |buffer g|et-buffe|
|00000ac0| 72 2d 77 69 6e 64 6f 77 | 20 70 6f 73 2d 76 69 73 |r-window| pos-vis|
|00000ad0| 69 62 6c 65 2d 69 6e 2d | 77 69 6e 64 6f 77 2d 70 |ible-in-|window-p|
|00000ae0| 20 6f 72 69 67 69 6e 61 | 6c 20 73 65 6c 65 63 74 | origina|l select|
|00000af0| 2d 77 69 6e 64 6f 77 20 | 72 65 63 65 6e 74 65 72 |-window |recenter|
|00000b00| 20 28 63 65 6e 74 65 72 | 29 5d 20 33 20 22 5c 0a | (center|)] 3 "\.|
|00000b10| 49 6e 73 65 72 74 20 70 | 72 6f 63 65 73 73 20 4f |Insert p|rocess O|
|00000b20| 55 54 50 55 54 20 69 6e | 74 6f 20 74 68 65 20 63 |UTPUT in|to the c|
|00000b30| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 2e 22 5d |urrent b|uffer."]|
|00000b40| 29 0a 28 66 73 65 74 20 | 27 62 72 69 64 67 65 2d |).(fset |'bridge-|
|00000b50| 73 65 6e 64 2d 73 74 72 | 69 6e 67 20 23 5b 28 70 |send-str|ing #[(p|
|00000b60| 72 6f 63 65 73 73 20 73 | 74 72 69 6e 67 29 20 22 |rocess s|tring) "|
|00000b70| 08 47 89 19 5c 6e 5e 1b | c4 0d 08 c6 0b 4f 5c 22 |.G..\n^.|.....O\"|
|00000b80| 88 0b 09 57 ad 99 0b 5c | 6e 5c 5c 1e 07 c8 20 88 |...W...\|n\\... .|
|00000b90| c4 0d 08 0b 09 0e 07 5e | 4f 5c 22 88 0e 07 13 29 |.......^|O\"....)|
|00000ba0| aa 62 2a 87 22 20 5b 73 | 74 72 69 6e 67 20 6c 65 |.b*." [s|tring le|
|00000bb0| 6e 20 62 72 69 64 67 65 | 2d 63 68 75 6e 6b 2d 73 |n bridge|-chunk-s|
|00000bc0| 69 7a 65 20 69 20 70 72 | 6f 63 65 73 73 2d 73 65 |ize i pr|ocess-se|
|00000bd0| 6e 64 2d 73 74 72 69 6e | 67 20 70 72 6f 63 65 73 |nd-strin|g proces|
|00000be0| 73 20 30 20 6e 65 78 74 | 2d 69 20 61 63 63 65 70 |s 0 next|-i accep|
|00000bf0| 74 2d 70 72 6f 63 65 73 | 73 2d 6f 75 74 70 75 74 |t-proces|s-output|
|00000c00| 5d 20 37 20 22 5c 0a 53 | 65 6e 64 20 50 52 4f 43 |] 7 "\.S|end PROC|
|00000c10| 45 53 53 20 74 68 65 20 | 63 6f 6e 74 65 6e 74 73 |ESS the |contents|
|00000c20| 20 6f 66 20 53 54 52 49 | 4e 47 20 61 73 20 69 6e | of STRI|NG as in|
|00000c30| 70 75 74 2e 0a 54 68 69 | 73 20 69 73 20 65 71 75 |put..Thi|s is equ|
|00000c40| 69 76 61 6c 65 6e 74 20 | 74 6f 20 70 72 6f 63 65 |ivalent |to proce|
|00000c50| 73 73 2d 73 65 6e 64 2d | 73 74 72 69 6e 67 2c 20 |ss-send-|string, |
|00000c60| 65 78 63 65 70 74 20 74 | 68 61 74 20 6c 6f 6e 67 |except t|hat long|
|00000c70| 20 69 6e 70 75 74 20 73 | 74 72 69 6e 67 73 0a 61 | input s|trings.a|
|00000c80| 72 65 20 62 72 6f 6b 65 | 6e 20 75 70 20 69 6e 74 |re broke|n up int|
|00000c90| 6f 20 63 68 75 6e 6b 73 | 20 6f 66 20 73 69 7a 65 |o chunks| of size|
|00000ca0| 20 63 6f 6d 69 6e 74 2d | 69 6e 70 75 74 2d 63 68 | comint-|input-ch|
|00000cb0| 75 6e 6b 2d 73 69 7a 65 | 2e 20 50 72 6f 63 65 73 |unk-size|. Proces|
|00000cc0| 73 65 73 0a 61 72 65 20 | 67 69 76 65 6e 20 61 20 |ses.are |given a |
|00000cd0| 63 68 61 6e 63 65 20 74 | 6f 20 6f 75 74 70 75 74 |chance t|o output|
|00000ce0| 20 62 65 74 77 65 65 6e | 20 63 68 75 6e 6b 73 2e | between| chunks.|
|00000cf0| 20 54 68 69 73 20 63 61 | 6e 20 68 65 6c 70 20 70 | This ca|n help p|
|00000d00| 72 65 76 65 6e 74 20 70 | 72 6f 63 65 73 73 65 73 |revent p|rocesses|
|00000d10| 0a 66 72 6f 6d 20 68 61 | 6e 67 69 6e 67 20 77 68 |.from ha|nging wh|
|00000d20| 65 6e 20 79 6f 75 20 73 | 65 6e 64 20 74 68 65 6d |en you s|end them|
|00000d30| 20 6c 6f 6e 67 20 69 6e | 70 75 74 73 20 6f 6e 20 | long in|puts on |
|00000d40| 73 6f 6d 65 20 4f 53 27 | 73 2e 22 5d 29 0a 28 66 |some OS'|s."]).(f|
|00000d50| 73 65 74 20 27 62 72 69 | 64 67 65 2d 63 61 6c 6c |set 'bri|dge-call|
|00000d60| 2d 68 61 6e 64 6c 65 72 | 20 23 5b 28 68 61 6e 64 |-handler| #[(hand|
|00000d70| 6c 65 72 20 70 72 6f 63 | 20 73 74 72 69 6e 67 29 |ler proc| string)|
|00000d80| 20 22 c0 89 19 1a c3 c4 | c5 8f 88 09 2a 3f 87 22 | "......|....*?."|
|00000d90| 20 5b 6e 69 6c 20 66 61 | 69 6c 65 64 20 69 6e 68 | [nil fa|iled inh|
|00000da0| 69 62 69 74 2d 71 75 69 | 74 20 65 72 72 20 28 66 |ibit-qui|t err (f|
|00000db0| 75 6e 63 61 6c 6c 20 68 | 61 6e 64 6c 65 72 20 70 |uncall h|andler p|
|00000dc0| 72 6f 63 20 73 74 72 69 | 6e 67 29 20 28 28 65 72 |roc stri|ng) ((er|
|00000dd0| 72 6f 72 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ror (byt|e-code "|
|00000de0| c0 20 88 c1 12 c3 c4 0d | 0e 06 23 88 c7 c8 0d 44 |. ......|..#....D|
|00000df0| c8 0e 09 44 0e 5c 6e 46 | cb 0e 06 45 16 0c c0 87 |...D.\nF|...E....|
|00000e00| 22 20 5b 64 69 6e 67 20 | 74 20 66 61 69 6c 65 64 |" [ding |t failed|
|00000e10| 20 6d 65 73 73 61 67 65 | 20 22 62 72 69 64 67 65 | message| "bridge|
|00000e20| 2d 68 61 6e 64 6c 65 72 | 20 5c 22 25 73 5c 22 20 |-handler| \"%s\" |
|00000e30| 66 61 69 6c 65 64 20 25 | 73 20 28 73 65 65 20 62 |failed %|s (see b|
|00000e40| 72 69 64 67 65 2d 6c 61 | 73 74 2d 66 61 69 6c 75 |ridge-la|st-failu|
|00000e50| 72 65 29 22 20 68 61 6e | 64 6c 65 72 20 65 72 72 |re)" han|dler err|
|00000e60| 20 66 75 6e 63 61 6c 6c | 20 71 75 6f 74 65 20 70 | funcall| quote p|
|00000e70| 72 6f 63 20 73 74 72 69 | 6e 67 20 22 43 61 75 73 |roc stri|ng "Caus|
|00000e80| 65 64 3a 20 22 20 62 72 | 69 64 67 65 2d 6c 61 73 |ed: " br|idge-las|
|00000e90| 74 2d 66 61 69 6c 75 72 | 65 5d 20 34 29 29 29 5d |t-failur|e] 4)))]|
|00000ea0| 20 33 20 22 5c 0a 46 75 | 6e 63 61 6c 6c 20 48 41 | 3 "\.Fu|ncall HA|
|00000eb0| 4e 44 4c 45 52 20 6f 6e | 20 50 52 4f 43 2c 20 53 |NDLER on| PROC, S|
|00000ec0| 54 52 49 4e 47 20 63 61 | 72 65 66 75 6c 6c 79 2e |TRING ca|refully.|
|00000ed0| 20 20 45 72 72 6f 72 20 | 69 73 20 63 61 75 67 68 |  Error |is caugh|
|00000ee0| 74 20 69 66 20 68 61 70 | 70 65 6e 73 2c 0a 61 6e |t if hap|pens,.an|
|00000ef0| 64 20 75 73 65 72 20 69 | 73 20 73 69 67 6e 61 6c |d user i|s signal|
|00000f00| 65 64 2e 20 20 53 74 61 | 74 65 20 69 73 20 70 75 |ed.  Sta|te is pu|
|00000f10| 74 20 69 6e 20 62 72 69 | 64 67 65 2d 6c 61 73 74 |t in bri|dge-last|
|00000f20| 2d 66 61 69 6c 75 72 65 | 2e 20 20 52 65 74 75 72 |-failure|.  Retur|
|00000f30| 6e 73 20 74 20 69 66 0a | 68 61 6e 64 6c 65 72 20 |ns t if.|handler |
|00000f40| 65 78 65 63 75 74 65 64 | 20 77 69 74 68 6f 75 74 |executed| without|
|00000f50| 20 65 72 72 6f 72 2e 22 | 5d 29 0a 28 66 73 65 74 | error."|]).(fset|
|00000f60| 20 27 62 72 69 64 67 65 | 2d 73 65 6e 64 2d 68 61 | 'bridge|-send-ha|
|00000f70| 6e 64 6c 65 72 20 23 5b | 28 70 72 6f 63 65 73 73 |ndler #[|(process|
|00000f80| 20 69 6e 70 75 74 29 20 | 22 08 ac 84 c1 89 12 87 | input) |".......|
|00000f90| c1 89 89 89 1b 1c 1d 1e | 06 5c 6e ac a0 c7 08 21 |........|.\n....!|
|00000fa0| 16 06 c8 c9 c7 08 21 40 | 5c 22 15 ca 0d 21 14 cb |......!@|\"...!..|
|00000fb0| 0c 21 13 08 0e 06 41 c1 | 4f 10 0c 12 aa 8a 5c 6e |.!....A.|O.....\n|
|00000fc0| 15 ca 0d 21 14 cb 0c 21 | 13 0c ab a6 70 1e 0c 0e |...!...!|....p...|
|00000fd0| 0d ab 95 ce 8e 0c 71 88 | 0b ab 86 cf 08 21 88 aa |......q.|.....!..|
|00000fe0| 86 64 62 88 08 63 88 29 | 0b ad 84 d0 0b 08 5c 22 |.db..c.)|......\"|
|00000ff0| 29 aa 84 d1 d2 0d 5c 22 | 2c 87 22 20 5b 69 6e 70 |).....\"|,." [inp|
|00001000| 75 74 20 6e 69 6c 20 62 | 72 69 64 67 65 2d 73 65 |ut nil b|ridge-se|
|00001010| 6e 64 2d 74 6f 2d 62 75 | 66 66 65 72 20 74 6f 20 |nd-to-bu|ffer to |
|00001020| 64 65 73 74 20 62 75 66 | 66 65 72 2d 6e 61 6d 65 |dest buf|fer-name|
|00001030| 20 62 75 66 66 65 72 2d | 61 6e 64 2d 73 74 61 72 | buffer-|and-star|
|00001040| 74 20 72 65 61 64 2d 66 | 72 6f 6d 2d 73 74 72 69 |t read-f|rom-stri|
|00001050| 6e 67 20 66 6f 72 6d 61 | 74 20 22 25 73 22 20 67 |ng forma|t "%s" g|
|00001060| 65 74 2d 62 75 66 66 65 | 72 20 67 65 74 2d 62 75 |et-buffe|r get-bu|
|00001070| 66 66 65 72 2d 70 72 6f | 63 65 73 73 20 62 75 66 |ffer-pro|cess buf|
|00001080| 66 65 72 20 62 72 69 64 | 67 65 2d 64 65 73 74 69 |fer brid|ge-desti|
|00001090| 6e 61 74 69 6f 6e 2d 69 | 6e 73 65 72 74 20 28 28 |nation-i|nsert ((|
|000010a0| 73 65 74 2d 62 75 66 66 | 65 72 20 62 75 66 66 65 |set-buff|er buffe|
|000010b0| 72 29 29 20 62 72 69 64 | 67 65 2d 69 6e 73 65 72 |r)) brid|ge-inser|
|000010c0| 74 20 62 72 69 64 67 65 | 2d 73 65 6e 64 2d 73 74 |t bridge|-send-st|
|000010d0| 72 69 6e 67 20 65 72 72 | 6f 72 20 22 25 73 20 69 |ring err|or "%s i|
|000010e0| 73 20 6e 6f 74 20 61 20 | 62 75 66 66 65 72 22 5d |s not a |buffer"]|
|000010f0| 20 34 20 22 5c 0a 53 65 | 6e 64 20 50 52 4f 43 45 | 4 "\.Se|nd PROCE|
|00001100| 53 53 20 49 4e 50 55 54 | 20 74 6f 20 74 68 65 20 |SS INPUT| to the |
|00001110| 62 75 66 66 65 72 20 6e | 61 6d 65 20 66 6f 75 6e |buffer n|ame foun|
|00001120| 64 20 61 74 20 74 68 65 | 20 73 74 61 72 74 20 6f |d at the| start o|
|00001130| 66 20 74 68 65 0a 69 6e | 70 75 74 2e 20 20 54 68 |f the.in|put.  Th|
|00001140| 65 20 69 6e 70 75 74 20 | 61 66 74 65 72 20 74 68 |e input |after th|
|00001150| 65 20 62 75 66 66 65 72 | 20 6e 61 6d 65 20 69 73 |e buffer| name is|
|00001160| 20 73 65 6e 74 20 74 6f | 20 74 68 65 20 62 75 66 | sent to| the buf|
|00001170| 66 65 72 27 73 0a 70 72 | 6f 63 65 73 73 20 69 66 |fer's.pr|ocess if|
|00001180| 20 69 74 20 68 61 73 20 | 6f 6e 65 2e 20 20 49 66 | it has |one.  If|
|00001190| 20 62 72 69 64 67 65 2d | 64 65 73 74 69 6e 61 74 | bridge-|destinat|
|000011a0| 69 6f 6e 2d 69 6e 73 65 | 72 74 20 69 73 20 54 2c |ion-inse|rt is T,|
|000011b0| 20 74 68 65 20 69 6e 70 | 75 74 0a 77 69 6c 6c 20 | the inp|ut.will |
|000011c0| 62 65 20 69 6e 73 65 72 | 74 65 64 20 69 6e 74 6f |be inser|ted into|
|000011d0| 20 74 68 65 20 62 75 66 | 66 65 72 2e 20 20 49 66 | the buf|fer.  If|
|000011e0| 20 69 74 20 64 6f 65 73 | 20 6e 6f 74 20 68 61 76 | it does| not hav|
|000011f0| 65 20 61 20 70 72 6f 63 | 65 73 73 2c 20 69 74 0a |e a proc|ess, it.|
|00001200| 77 69 6c 6c 20 62 65 20 | 69 6e 73 65 72 74 65 64 |will be |inserted|
|00001210| 20 61 74 20 74 68 65 20 | 65 6e 64 20 6f 66 20 74 | at the |end of t|
|00001220| 68 65 20 62 75 66 66 65 | 72 2e 22 5d 29 0a 28 66 |he buffe|r."]).(f|
|00001230| 73 65 74 20 27 62 72 69 | 64 67 65 2d 66 69 6c 74 |set 'bri|dge-filt|
|00001240| 65 72 20 23 5b 28 70 72 | 6f 63 65 73 73 20 6f 75 |er #[(pr|ocess ou|
|00001250| 74 70 75 74 29 20 22 c0 | c1 20 70 c2 0b 21 c0 c4 |tput) ".|. p..!..|
|00001260| 89 c5 89 89 89 1e 06 1e | 07 1e 08 1e 09 1e 5c 6e |........|......\n|
|00001270| 1e 0b 1e 0c 1a 1e 0d 19 | 1e 0e 5c 6e 71 88 0e 0f |........|..\nq...|
|00001280| 16 09 c5 8e 0e 5c 6e 0e | 10 47 57 83 7f 01 0e 0f |.....\n.|.GW.....|
|00001290| ab 88 0e 0b 16 07 0e 0b | aa 93 d1 0e 12 0e 10 0e |........|........|
|000012a0| 0b 23 ab 88 c4 95 16 07 | c4 94 aa 81 c5 89 16 08 |.#......|........|
|000012b0| ad 94 d1 0e 13 0e 10 0e | 07 23 89 1e 14 ab 84 c4 |........|.#......|
|000012c0| 95 16 5c 6e 0e 14 29 89 | 16 06 ac 8a 0e 10 47 16 |..\n..).|......G.|
|000012d0| 5c 6e 0e 10 47 16 06 0e | 08 ab a3 d1 0e 15 0e 10 |\n..G...|........|
|000012e0| 0e 07 23 89 1e 16 ab 95 | c4 95 0e 06 58 ab 8e c5 |..#.....|....X...|
|000012f0| 16 08 0e 0b 16 06 c4 95 | 16 5c 6e c5 16 0f 29 0e |........|.\n...).|
|00001300| 0b 0e 08 ae 82 0e 5c 6e | 55 ac bf 0e 10 0e 0b 0e |......\n|U.......|
|00001310| 08 ae 82 0e 5c 6e 4f 1e | 17 0e 18 ab a5 0e 18 1e |....\nO.|........|
|00001320| 19 da 09 21 88 0e 19 0b | 0e 17 5c 22 88 db 0b 21 |...!....|..\"...!|
|00001330| 89 1e 1c dd 3d ac 89 0e | 1c 16 18 de 0b dd 5c 22 |....=...|......\"|
|00001340| 88 2a aa 88 5c 6e 71 88 | df 0e 17 21 88 29 0e 08 |.*..\nq.|...!.)..|
|00001350| ab c5 0e 0f ac c1 0e 20 | 1e 21 0e 21 ab ad 0e 09 |....... |.!.!....|
|00001360| ac a9 0e 21 40 1e 5c 22 | d1 0e 5c 22 40 0e 10 0e |...!@.\"|..\"@...|
|00001370| 07 23 89 1e 23 ab 8e 0e | 23 0e 06 57 ab 87 0e 5c |.#..#...|#..W...\|
|00001380| 22 41 16 09 aa 85 0e 21 | 41 16 21 2a aa 4f 0e 09 |"A.....!|A.!*.O..|
|00001390| ac 83 e4 16 09 0e 09 16 | 0f 29 0e 09 ab bf c0 1e |........|.)......|
|000013a0| 25 0e 07 0e 06 55 ac 9c | 0e 10 0e 07 0e 06 4f 1e |%....U..|......O.|
|000013b0| 26 0e 27 ab 85 df 0e 26 | 21 88 e8 0e 09 0b 0e 26 |&.'....&|!......&|
|000013c0| 23 16 25 29 0e 25 ab 87 | 0e 06 0e 5c 6e 55 ac 8d |#.%).%..|...\nU..|
|000013d0| e8 0e 09 0b c5 23 88 c5 | 16 09 c5 16 0f 29 0e 5c |.....#..|.....).\|
|000013e0| 6e 16 0b 82 2b 00 29 0e | 0d 71 88 da 09 21 2e 0b |n...+.).|.q...!..|
|000013f0| 87 22 20 5b 74 20 6d 61 | 74 63 68 2d 64 61 74 61 |." [t ma|tch-data|
|00001400| 20 70 72 6f 63 65 73 73 | 2d 62 75 66 66 65 72 20 | process|-buffer |
|00001410| 70 72 6f 63 65 73 73 20 | 30 20 6e 69 6c 20 62 2d |process |0 nil b-|
|00001420| 65 6e 64 20 62 2d 73 74 | 61 72 74 2d 65 6e 64 20 |end b-st|art-end |
|00001430| 62 2d 73 74 61 72 74 20 | 66 75 6e 63 74 69 6f 6e |b-start |function|
|00001440| 20 65 6e 64 20 73 74 61 | 72 74 20 63 61 73 65 2d | end sta|rt case-|
|00001450| 66 6f 6c 64 2d 73 65 61 | 72 63 68 20 62 75 66 66 |fold-sea|rch buff|
|00001460| 65 72 20 69 6e 68 69 62 | 69 74 2d 71 75 69 74 20 |er inhib|it-quit |
|00001470| 62 72 69 64 67 65 2d 69 | 6e 2d 70 72 6f 67 72 65 |bridge-i|n-progre|
|00001480| 73 73 20 6f 75 74 70 75 | 74 20 73 74 72 69 6e 67 |ss outpu|t string|
|00001490| 2d 6d 61 74 63 68 20 62 | 72 69 64 67 65 2d 73 74 |-match b|ridge-st|
|000014a0| 61 72 74 2d 72 65 67 65 | 78 70 20 62 72 69 64 67 |art-rege|xp bridg|
|000014b0| 65 2d 65 6e 64 2d 72 65 | 67 65 78 70 20 65 6e 64 |e-end-re|gexp end|
|000014c0| 2d 73 65 65 6e 20 62 72 | 69 64 67 65 2d 70 72 6f |-seen br|idge-pro|
|000014d0| 6d 70 74 2d 72 65 67 65 | 78 70 20 70 72 6f 6d 70 |mpt-rege|xp promp|
|000014e0| 74 20 70 61 73 73 2d 6f | 6e 20 62 72 69 64 67 65 |t pass-o|n bridge|
|000014f0| 2d 6f 6c 64 2d 66 69 6c | 74 65 72 20 6f 6c 64 20 |-old-fil|ter old |
|00001500| 73 74 6f 72 65 2d 6d 61 | 74 63 68 2d 64 61 74 61 |store-ma|tch-data|
|00001510| 20 70 72 6f 63 65 73 73 | 2d 66 69 6c 74 65 72 20 | process|-filter |
|00001520| 6e 65 77 20 62 72 69 64 | 67 65 2d 66 69 6c 74 65 |new brid|ge-filte|
|00001530| 72 20 73 65 74 2d 70 72 | 6f 63 65 73 73 2d 66 69 |r set-pr|ocess-fi|
|00001540| 6c 74 65 72 20 62 72 69 | 64 67 65 2d 69 6e 73 65 |lter bri|dge-inse|
|00001550| 72 74 20 62 72 69 64 67 | 65 2d 68 61 6e 64 6c 65 |rt bridg|e-handle|
|00001560| 72 73 20 68 61 6e 64 6c | 65 72 73 20 68 61 6e 64 |rs handl|ers hand|
|00001570| 6c 65 72 20 6d 20 62 72 | 69 64 67 65 2d 73 65 6e |ler m br|idge-sen|
|00001580| 64 2d 68 61 6e 64 6c 65 | 72 20 6f 6b 20 73 65 6e |d-handle|r ok sen|
|00001590| 64 20 62 72 69 64 67 65 | 2d 73 6f 75 72 63 65 2d |d bridge|-source-|
|000015a0| 69 6e 73 65 72 74 20 62 | 72 69 64 67 65 2d 63 61 |insert b|ridge-ca|
|000015b0| 6c 6c 2d 68 61 6e 64 6c | 65 72 5d 20 31 32 20 22 |ll-handl|er] 12 "|
|000015c0| 5c 0a 47 69 76 65 6e 20 | 50 52 4f 43 45 53 53 20 |\.Given |PROCESS |
|000015d0| 61 6e 64 20 73 6f 6d 65 | 20 4f 55 54 50 55 54 2c |and some| OUTPUT,|
|000015e0| 20 63 68 65 63 6b 20 66 | 6f 72 20 74 68 65 20 70 | check f|or the p|
|000015f0| 72 65 73 65 6e 63 65 20 | 6f 66 0a 62 72 69 64 67 |resence |of.bridg|
|00001600| 65 2d 73 74 61 72 74 2d | 72 65 67 65 78 70 2e 20 |e-start-|regexp. |
|00001610| 20 45 76 65 72 79 74 68 | 69 6e 67 20 70 72 69 6f | Everyth|ing prio|
|00001620| 72 20 74 6f 20 74 68 69 | 73 20 77 69 6c 6c 20 62 |r to thi|s will b|
|00001630| 65 20 70 61 73 73 65 64 | 20 74 6f 20 74 68 65 0a |e passed| to the.|
|00001640| 6e 6f 72 6d 61 6c 20 66 | 69 6c 74 65 72 20 66 75 |normal f|ilter fu|
|00001650| 6e 63 74 69 6f 6e 20 6f | 72 20 69 6e 73 65 72 74 |nction o|r insert|
|00001660| 65 64 20 69 6e 20 74 68 | 65 20 62 75 66 66 65 72 |ed in th|e buffer|
|00001670| 20 69 66 20 69 74 20 69 | 73 20 6e 69 6c 2e 20 20 | if it i|s nil.  |
|00001680| 54 68 65 0a 6f 75 74 70 | 75 74 20 75 70 20 74 6f |The.outp|ut up to|
|00001690| 20 62 72 69 64 67 65 2d | 65 6e 64 2d 72 65 67 65 | bridge-|end-rege|
|000016a0| 78 70 20 77 69 6c 6c 20 | 62 65 20 73 65 6e 74 20 |xp will |be sent |
|000016b0| 74 6f 20 74 68 65 20 66 | 69 72 73 74 20 68 61 6e |to the f|irst han|
|000016c0| 64 6c 65 72 20 6f 6e 0a | 62 72 69 64 67 65 2d 68 |dler on.|bridge-h|
|000016d0| 61 6e 64 6c 65 72 73 20 | 74 68 61 74 20 6d 61 74 |andlers |that mat|
|000016e0| 63 68 65 73 20 74 68 65 | 20 73 74 72 69 6e 67 2e |ches the| string.|
|000016f0| 20 20 49 66 20 6e 6f 20 | 68 61 6e 64 6c 65 72 73 |  If no |handlers|
|00001700| 20 6d 61 74 63 68 2c 20 | 74 68 65 0a 69 6e 70 75 | match, |the.inpu|
|00001710| 74 20 77 69 6c 6c 20 62 | 65 20 73 65 6e 74 20 74 |t will b|e sent t|
|00001720| 6f 20 62 72 69 64 67 65 | 2d 73 65 6e 64 2d 68 61 |o bridge|-send-ha|
|00001730| 6e 64 6c 65 72 2e 20 20 | 49 66 20 62 72 69 64 67 |ndler.  |If bridg|
|00001740| 65 2d 70 72 6f 6d 70 74 | 2d 72 65 67 65 78 70 20 |e-prompt|-regexp |
|00001750| 69 73 0a 65 6e 63 6f 75 | 6e 74 65 72 65 64 20 62 |is.encou|ntered b|
|00001760| 65 66 6f 72 65 20 74 68 | 65 20 62 72 69 64 67 65 |efore th|e bridge|
|00001770| 2d 65 6e 64 2d 72 65 67 | 65 78 70 2c 20 74 68 65 |-end-reg|exp, the|
|00001780| 20 62 72 69 64 67 65 20 | 77 69 6c 6c 20 62 65 20 | bridge |will be |
|00001790| 63 61 6e 63 65 6c 6c 65 | 64 2e 22 5d 29 0a 28 66 |cancelle|d."]).(f|
|000017a0| 73 65 74 20 27 69 6e 73 | 74 61 6c 6c 2d 62 72 69 |set 'ins|tall-bri|
|000017b0| 64 67 65 20 23 5b 6e 69 | 6c 20 22 c0 70 21 ac 87 |dge #[ni|l ".p!..|
|000017c0| c1 c2 c3 70 21 5c 22 87 | c4 c5 21 88 c4 c6 21 88 |...p!\".|..!...!.|
|000017d0| c4 c7 21 88 c4 c8 21 88 | c4 c9 21 88 c4 ca 21 88 |..!...!.|..!...!.|
|000017e0| c4 cb 21 88 c4 cc 21 88 | c4 cd 21 88 c4 ce 21 88 |..!...!.|..!...!.|
|000017f0| c4 cf 21 88 d0 16 0d d0 | 16 0e d0 16 0f d1 d2 21 |..!.....|.......!|
|00001800| ab 84 0e 12 16 07 c0 70 | 21 89 1e 13 ab 96 d4 0e |.......p|!.......|
|00001810| 13 21 d5 3d ac 95 d4 0e | 13 21 16 0c d6 0e 13 d5 |.!.=....|.!......|
|00001820| 5c 22 88 aa 87 c1 c2 c3 | 70 21 5c 22 88 29 d7 d8 |\"......|p!\".)..|
|00001830| 21 88 d9 da 21 87 22 20 | 5b 67 65 74 2d 62 75 66 |!...!." |[get-buf|
|00001840| 66 65 72 2d 70 72 6f 63 | 65 73 73 20 65 72 72 6f |fer-proc|ess erro|
|00001850| 72 20 22 25 73 20 64 6f | 65 73 20 6e 6f 74 20 68 |r "%s do|es not h|
|00001860| 61 76 65 20 61 20 70 72 | 6f 63 65 73 73 22 20 62 |ave a pr|ocess" b|
|00001870| 75 66 66 65 72 2d 6e 61 | 6d 65 20 6d 61 6b 65 2d |uffer-na|me make-|
|00001880| 6c 6f 63 61 6c 2d 76 61 | 72 69 61 62 6c 65 20 62 |local-va|riable b|
|00001890| 72 69 64 67 65 2d 73 74 | 61 72 74 2d 72 65 67 65 |ridge-st|art-rege|
|000018a0| 78 70 20 62 72 69 64 67 | 65 2d 65 6e 64 2d 72 65 |xp bridg|e-end-re|
|000018b0| 67 65 78 70 20 62 72 69 | 64 67 65 2d 70 72 6f 6d |gexp bri|dge-prom|
|000018c0| 70 74 2d 72 65 67 65 78 | 70 20 62 72 69 64 67 65 |pt-regex|p bridge|
|000018d0| 2d 68 61 6e 64 6c 65 72 | 73 20 62 72 69 64 67 65 |-handler|s bridge|
|000018e0| 2d 73 6f 75 72 63 65 2d | 69 6e 73 65 72 74 20 62 |-source-|insert b|
|000018f0| 72 69 64 67 65 2d 64 65 | 73 74 69 6e 61 74 69 6f |ridge-de|stinatio|
|00001900| 6e 2d 69 6e 73 65 72 74 | 20 62 72 69 64 67 65 2d |n-insert| bridge-|
|00001910| 63 68 75 6e 6b 2d 73 69 | 7a 65 20 62 72 69 64 67 |chunk-si|ze bridg|
|00001920| 65 2d 6f 6c 64 2d 66 69 | 6c 74 65 72 20 62 72 69 |e-old-fi|lter bri|
|00001930| 64 67 65 2d 73 74 72 69 | 6e 67 20 62 72 69 64 67 |dge-stri|ng bridg|
|00001940| 65 2d 69 6e 2d 70 72 6f | 67 72 65 73 73 20 62 72 |e-in-pro|gress br|
|00001950| 69 64 67 65 2d 73 65 6e | 64 2d 74 6f 2d 62 75 66 |idge-sen|d-to-buf|
|00001960| 66 65 72 20 6e 69 6c 20 | 62 6f 75 6e 64 70 20 63 |fer nil |boundp c|
|00001970| 6f 6d 69 6e 74 2d 70 72 | 6f 6d 70 74 2d 72 65 67 |omint-pr|ompt-reg|
|00001980| 65 78 70 20 70 72 6f 63 | 65 73 73 20 70 72 6f 63 |exp proc|ess proc|
|00001990| 65 73 73 2d 66 69 6c 74 | 65 72 20 62 72 69 64 67 |ess-filt|er bridg|
|000019a0| 65 2d 66 69 6c 74 65 72 | 20 73 65 74 2d 70 72 6f |e-filter| set-pro|
|000019b0| 63 65 73 73 2d 66 69 6c | 74 65 72 20 72 75 6e 2d |cess-fil|ter run-|
|000019c0| 68 6f 6f 6b 73 20 62 72 | 69 64 67 65 2d 68 6f 6f |hooks br|idge-hoo|
|000019d0| 6b 20 6d 65 73 73 61 67 | 65 20 22 50 72 6f 63 65 |k messag|e "Proce|
|000019e0| 73 73 20 62 72 69 64 67 | 65 20 69 73 20 69 6e 73 |ss bridg|e is ins|
|000019f0| 74 61 6c 6c 65 64 22 5d | 20 35 20 22 5c 0a 53 65 |talled"]| 5 "\.Se|
|00001a00| 74 20 75 70 20 61 20 70 | 72 6f 63 65 73 73 20 62 |t up a p|rocess b|
|00001a10| 72 69 64 67 65 20 69 6e | 20 74 68 65 20 63 75 72 |ridge in| the cur|
|00001a20| 72 65 6e 74 20 62 75 66 | 66 65 72 2e 22 20 6e 69 |rent buf|fer." ni|
|00001a30| 6c 5d 29 0a 28 66 73 65 | 74 20 27 72 65 73 65 74 |l]).(fse|t 'reset|
|00001a40| 2d 62 72 69 64 67 65 20 | 23 5b 6e 69 6c 20 22 08 |-bridge |#[nil ".|
|00001a50| ab 8a c1 8e 08 c2 70 21 | c3 5c 22 29 87 c4 c5 21 |......p!|.\")...!|
|00001a60| 87 22 20 5b 62 72 69 64 | 67 65 2d 69 6e 2d 70 72 |." [brid|ge-in-pr|
|00001a70| 6f 67 72 65 73 73 20 28 | 28 62 79 74 65 2d 63 6f |ogress (|(byte-co|
|00001a80| 64 65 20 22 c0 11 c0 87 | 22 20 5b 6e 69 6c 20 62 |de "....|" [nil b|
|00001a90| 72 69 64 67 65 2d 69 6e | 2d 70 72 6f 67 72 65 73 |ridge-in|-progres|
|00001aa0| 73 5d 20 31 29 29 20 67 | 65 74 2d 62 75 66 66 65 |s] 1)) g|et-buffe|
|00001ab0| 72 2d 70 72 6f 63 65 73 | 73 20 6e 69 6c 20 6d 65 |r-proces|s nil me|
|00001ac0| 73 73 61 67 65 20 22 4e | 6f 20 62 72 69 64 67 65 |ssage "N|o bridge|
|00001ad0| 20 69 6e 20 70 72 6f 67 | 72 65 73 73 2e 22 5d 20 | in prog|ress."] |
|00001ae0| 33 20 22 5c 0a 4d 75 73 | 74 20 62 65 20 63 61 6c |3 "\.Mus|t be cal|
|00001af0| 6c 65 64 20 66 72 6f 6d | 20 74 68 65 20 70 72 6f |led from| the pro|
|00001b00| 63 65 73 73 27 73 20 62 | 75 66 66 65 72 2e 20 20 |cess's b|uffer.  |
|00001b10| 52 65 6d 6f 76 65 73 20 | 61 6e 79 20 61 63 74 69 |Removes |any acti|
|00001b20| 76 65 20 62 72 69 64 67 | 65 2e 22 20 6e 69 6c 5d |ve bridg|e." nil]|
|00001b30| 29 0a 28 66 73 65 74 20 | 27 72 65 6d 6f 76 65 2d |).(fset |'remove-|
|00001b40| 62 72 69 64 67 65 20 23 | 5b 6e 69 6c 20 22 c0 70 |bridge #|[nil ".p|
|00001b50| 21 89 19 ab 87 c2 09 21 | c3 3d ac 88 c4 c5 c6 70 |!......!|.=.....p|
|00001b60| 21 5c 22 aa 93 c7 20 88 | c8 09 0e 09 5c 22 88 0e |!\"... .|....\"..|
|00001b70| 09 09 0e 5c 6e 5c 22 88 | cb cc 21 29 87 22 20 5b |...\n\".|..!)." [|
|00001b80| 67 65 74 2d 62 75 66 66 | 65 72 2d 70 72 6f 63 65 |get-buff|er-proce|
|00001b90| 73 73 20 70 72 6f 63 65 | 73 73 20 70 72 6f 63 65 |ss proce|ss proce|
|00001ba0| 73 73 2d 66 69 6c 74 65 | 72 20 62 72 69 64 67 65 |ss-filte|r bridge|
|00001bb0| 2d 66 69 6c 74 65 72 20 | 65 72 72 6f 72 20 22 25 |-filter |error "%|
|00001bc0| 73 20 68 61 73 20 6e 6f | 20 62 72 69 64 67 65 22 |s has no| bridge"|
|00001bd0| 20 62 75 66 66 65 72 2d | 6e 61 6d 65 20 72 65 73 | buffer-|name res|
|00001be0| 65 74 2d 62 72 69 64 67 | 65 20 73 65 74 2d 70 72 |et-bridg|e set-pr|
|00001bf0| 6f 63 65 73 73 2d 66 69 | 6c 74 65 72 20 62 72 69 |ocess-fi|lter bri|
|00001c00| 64 67 65 2d 6f 6c 64 2d | 66 69 6c 74 65 72 20 62 |dge-old-|filter b|
|00001c10| 72 69 64 67 65 2d 73 74 | 72 69 6e 67 20 6d 65 73 |ridge-st|ring mes|
|00001c20| 73 61 67 65 20 22 50 72 | 6f 63 65 73 73 20 62 72 |sage "Pr|ocess br|
|00001c30| 69 64 67 65 20 69 73 20 | 72 65 6d 6f 76 65 64 2e |idge is |removed.|
|00001c40| 22 5d 20 35 20 22 5c 0a | 52 65 6d 6f 76 65 20 62 |"] 5 "\.|Remove b|
|00001c50| 72 69 64 67 65 20 66 72 | 6f 6d 20 74 68 65 20 63 |ridge fr|om the c|
|00001c60| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 2e 22 20 |urrent b|uffer." |
|00001c70| 6e 69 6c 5d 29 0a 28 66 | 73 65 74 20 27 68 61 6e |nil]).(f|set 'han|
|00001c80| 64 2d 62 72 69 64 67 65 | 20 23 5b 28 73 74 61 72 |d-bridge| #[(star|
|00001c90| 74 20 65 6e 64 29 20 22 | 08 ab 85 09 5c 6e 5e aa |t end) "|....\n^.|
|00001ca0| 8b c3 0c 21 ab 83 60 aa | 83 c5 c6 21 08 ab 85 09 |...!..`.|...!....|
|00001cb0| 5c 6e 5d aa 8e c7 0e 08 | c9 ca 23 ab 83 60 aa 83 |\n].....|..#..`..|
|00001cc0| c5 cb 21 1e 0c 1e 0d ce | cf 70 21 0e 0d 0e 0c 7b |..!.....|.p!....{|
|00001cd0| 5c 22 2a 87 22 20 5b 63 | 75 72 72 65 6e 74 2d 70 |\"*." [c|urrent-p|
|00001ce0| 72 65 66 69 78 2d 61 72 | 67 20 73 74 61 72 74 20 |refix-ar|g start |
|00001cf0| 65 6e 64 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 62 |end look|ing-at b|
|00001d00| 72 69 64 67 65 2d 73 74 | 61 72 74 2d 72 65 67 65 |ridge-st|art-rege|
|00001d10| 78 70 20 65 72 72 6f 72 | 20 22 4e 6f 74 20 6c 6f |xp error| "Not lo|
|00001d20| 6f 6b 69 6e 67 20 61 74 | 20 62 72 69 64 67 65 2d |oking at| bridge-|
|00001d30| 73 74 61 72 74 2d 72 65 | 67 65 78 70 22 20 72 65 |start-re|gexp" re|
|00001d40| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00001d50| 62 72 69 64 67 65 2d 65 | 6e 64 2d 72 65 67 65 78 |bridge-e|nd-regex|
|00001d60| 70 20 6e 69 6c 20 74 20 | 22 44 69 64 6e 27 74 20 |p nil t |"Didn't |
|00001d70| 73 65 65 20 62 72 69 64 | 67 65 2d 65 6e 64 2d 72 |see brid|ge-end-r|
|00001d80| 65 67 65 78 70 22 20 70 | 31 20 70 30 20 62 72 69 |egexp" p|1 p0 bri|
|00001d90| 64 67 65 2d 66 69 6c 74 | 65 72 20 67 65 74 2d 62 |dge-filt|er get-b|
|00001da0| 75 66 66 65 72 2d 70 72 | 6f 63 65 73 73 5d 20 35 |uffer-pr|ocess] 5|
|00001db0| 20 22 5c 0a 57 69 74 68 | 20 70 6f 69 6e 74 20 61 | "\.With| point a|
|00001dc0| 74 20 62 72 69 64 67 65 | 2d 73 74 61 72 74 2c 20 |t bridge|-start, |
|00001dd0| 73 65 6e 64 73 20 62 72 | 69 64 67 65 2d 73 74 61 |sends br|idge-sta|
|00001de0| 72 74 20 2b 20 73 74 72 | 69 6e 67 20 2b 0a 62 72 |rt + str|ing +.br|
|00001df0| 69 64 67 65 2d 65 6e 64 | 20 74 6f 20 62 72 69 64 |idge-end| to brid|
|00001e00| 67 65 2d 66 69 6c 74 65 | 72 2e 20 20 57 69 74 68 |ge-filte|r.  With|
|00001e10| 20 70 72 65 66 69 78 2c | 20 75 73 65 20 63 75 72 | prefix,| use cur|
|00001e20| 72 65 6e 74 20 72 65 67 | 69 6f 6e 20 74 6f 20 73 |rent reg|ion to s|
|00001e30| 65 6e 64 2e 22 20 22 72 | 22 5d 29 0a 28 70 72 6f |end." "r|"]).(pro|
|00001e40| 76 69 64 65 20 27 62 72 | 69 64 67 65 29 0a       |vide 'br|idge).  |
+--------+-------------------------+-------------------------+--------+--------+